home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 071-080 / amok75 / oberon3.0 / o3demo2.lzh / Definitions / Concurrency.def < prev    next >
Text File  |  1992-08-22  |  537b  |  22 lines
  1. DEFINITION Concurrency;
  2.  
  3. IMPORT
  4.   BT := BasicTypes,
  5.   Dos;
  6.  
  7. TYPE
  8.   Process = POINTER TO ProcessDesc;
  9.   ProcessProc = PROCEDURE(data: BT.ANY): BT.ANY;
  10.   ProcessDesc = RECORD (BT.ANYDesc) 
  11.     dosProcess : Dos.ProcessPtr;
  12.     PROCEDURE (p:Process) Wait(): BT.ANY;
  13.     PROCEDURE (p:Process) isRunning(): BOOLEAN;
  14.   END;
  15.  
  16. PROCEDURE NewProcessX(proc: ProcessProc; data: BT.ANY; stackSize: LONGINT; priority: SHORTINT): Process;
  17. PROCEDURE NewProcess(proc: ProcessProc; data: BT.ANY): Process;
  18. PROCEDURE WaitForAllProcesses;
  19.  
  20. END Concurrency.
  21.  
  22.